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Control It ("192.0.1.1") 



KRL - Program : 










RemoteGmd ("192 


.0 


.1 


m 2 " , 


.) 


RemoteCmd ("192 


.0 


. 1 


. 3 " , 


.) 


RemoteCmd ("192 


.0 


. 1 


. 4 11 , . 


.) 



Ethernet driver 



Network card 



Control 2: ("192,0.1.2") 



KRL - Program : 










RemoteCmd ("192 


.0 


.1 


. 1 " , 


.) 


RemoteCmd ("192 


.0 


. 1 


. 3 " , 


.) 


RemoteCmd ("192 


.0 


.1 


4 " 


.) 



Ethernet driver 



Network card 



Control 3: ("192.0.1.3") 



KRL- Program: 

RemoteCmd ("192.0.1.2",...) 
RemoteCmd ("192.0.1.1",...). 
RemoteCmd ( " 192 . 0 . 1 . 4 " , . . . ) 



Ethernet driver 



Network card 



Control 1; ("192.0.1.4") 



KRL- Program: 










Remo t eCmd ("192 


.0. 


1 . 




. •) 


RemoteCmd ("192 
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O 11 

J , • 


• •) 


Remo t eCmd ("192 


.0. 


1. 


1" . . 


. . ) 



Ethernet driver 



Network card 



Ethernet hub or 
SWITCH 



Fig. 1 
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Control 1 : 



Control 2 : 



KRL- Program: 
RemoteCmd ("192.0.1.1"," 1=1+1 » ) 



Program interpreter 

Target: "192.0.1.1" 
Command: "1=1+1" 



Produce UDP- Message: 

Target IP: "192.0.1.1" 
Data: "i=i+i» 
Sender: own IP address 



Send UDP message 



Receive UDP message ^ 



Program interpreter: 

Wait for command 
response 



KLR program: 

Evaluates return value 
of command 



Receive UDP message 



KRL- Compiler: 
Compile command in 
internal code 



KRL- Interpreter : 
Perform command 
("1=1+1") 



Produce UDP message: 
Target IP: IP of 
sender 

Data : 

Performance result 



Send UDP message 
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uer oerver v J 


Control 


1 


; - - wait for the 


clients to finish 


the old task- - 


RemoteCmd (Clients 


l_IP[],"Wait for Task==#Idle") J 


RemoteCmd (Client_ 


2_IP[] [] , "Wait for 




(Task==#ldle) " ) 






? - -spawn a new cl 


ient task-- 




RemoteCmd (Client 


_1_IP[] [] , "Task=#Weld") ' 


RemoteCmd (Client 


_2_IP[] [] , «'Task=#Fetch") 


; - -do anything — 






Fetch_Server_Part 


( ) 




RemoteCmd (Client_ 


1_IP [] [] , "Wait for 


Task==#Idle") 


RemoteCmd (Client_ 


2_IP [] [] , "Wait for 


Task==#Idle") 


End 







Control 2: 

Def Client_l( ) 
Loop 

Wait for Taskottldle 
Switch Task 
Case #Weld 

WeldPart ( ) 
Case #Fetch 

FetchPart ( ) 
Default 
Error Message. . . 
EndSwitch 
Task=#Idle 
Endloop 
End 



\ 



Control 



Def Client_l( ) 
Loop 

Wait for Tasko#Idle 
Switch Task 
V Case #Weld 
^ WeldPart ( ) 
Case #Fetch 

FetchPart ( ) 
Default 
Error Message. . . 
EndSwitch 
Task=#ldle 
Endloop 
End 



Fig. 3 



